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-- File: BootmesaDef s.Mesa 

-- Last edited by Sandman; May 10, 1978 9:39 AM 

DIRECTORY 

AUoDefs: FROM '^aUodefs". 
BcdDefs: FROM "bcddefs". 
ControlDefs: FROM "controldef s"» 
FakeSegDefs: FROM "f akesegdef s", 
ImageDefs: FROM "imagedefs", 
LoaderBcdUtilDefs: FROM "loaderbcdutildef s". 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" . 
WartDefs: FROM "wartdefs"; 

DEFINITIONS FROM AUoDefs, FakeSegDefs, ControlDefs; 

BootmesaDef s: DEFINITIONS SHARES ImageDefs ■ 
BEGIN 

Bootlndex: TYPE ■ WartDefs .Bootlndex; 
BootScriptHeader: TYPE ■ WartDefs. BootScriptHeader; 

FirstFrameWord: TYPE ■ MACHINE DEPENDENT RECORD [ 
gfi: GFTIndex, 
unused: [0. ,3], 

alloced. shared, started: BOOLEAN, 
trapxfers, codelinks: BOOLEAN]; 

-- From BootScript 

GetBootlndex: PROCEDURE RETURNS [Bootlndex]; 

GetBootTable: PROCEDURE RETURNS [CARDINAL]; 

Initial izeBootScript: PROCEDURE; 

FinishBootScript: PROCEDURE [startframe: GlobalFrameHandle] 

RETURNS [headerloc: Address]; 
DeclareVMBounds: PROCEDURE [b: VMBounds]; 
DeclareBootCommand: PROCEDURE [c: WartDefs .BootCommand]; 
DeclareSwapOut: PROCEDURE [f: GlobalFrameHandle]; 
DeclareOpenFiles: PROCEDURE; 

DeclareSegment: PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN]; 
DeclareCodeLink: PROCEDURE [f: GlobalFrameHandle] RETURNS [BOOLEAN]; 
DeclareUnlock: PROCEDURE [s: FakeSegmentHandle]; 
UnlockFrame: PROCEDURE [f: GlobalFrameHandle]; 
WriteScriptSegments: PROCEDURE; 

-- From Bootlmage 

WriteSwappedIn: PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN]; 
WriteSwappedOut: PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN]; 
SegmentToMap: PROCEDURE [FakeSegmentHandle]; 
EnterMapSegment: PROCEDURE [FakeSegmentHandle]; 
DeclareSegments: PROCEDURE; 

-- From Bootmesa 

Initial izeHeap: PROCEDURE; 
AllocGlobalFrame: PROCEDURE [ 

framesize, nlinks: CARDINAL, framelinks: BOOLEAN] RETURNS [POINTER]; 
DeclareLoadStateParameters: PROCEDURE [ 

FakeSegmentHandle, FakeSegmentHandle, FakeSegmentHandle]; 
AdjustBcd: PROCEDURE [FakeSegmentHandle]; 
InitializeBootmesa: PROCEDURE [PageCount, STRING] 

RETURNS [BcdDefs. VersionStamp]; 
Initializelmage: PROCEDURE; 
ListResidentCodeOffsets: PROCEDURE; 
LockFrame: PROCEDURE [GlobalFrameHandle]; 
SetExtraFrames: PROCEDURE; 
SwapInFrame: PROCEDURE[GlobalFrameHandle]; 
Writelmage: PROCEDURE; 

XFER: PROCEDURE [dest: GlobalFrameHandle]; 
SetDefaultMemoryLimits: PROCEDURE [fp, Ip: PageNumber]; 
SetDefaultNProcesses: PROCEDURE [n: CARDINAL]; 
SetDefaultGFTLength: PROCEDURE [1: CARDINAL]; 

BootmesaError: PROCEDURE [msg: STRING]; 

BootmesaModuTeError: PROCEDURE [msg. config, module: STRING]; 
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-- From BootLoader 

Load: PROCEDURE [STRING] 

RETURNS [FakeSegmentHandle, FakeSegmentHandle, FakeSegmentHandle]; 
CantFindCodeFile: SIGNAL; 

InvalidBcd: ERROR [bcdfile: SegmentDef s. FileHandle]; 
InvalidFile: ERROR [name: STRING]; 
OpenLoadmap: PROCEDURE [root: STRING]; 
CloseLoadmap: PROCEDURE; 
Initial izeGFT: PROCEDURE [POINTER. CARDINAL]; 

-- From BootUtilities 

ModuleName: PROCEDURE [frame: Global FrameHandle. name: STRING]; 
Frame: PROCEDURE [STRING] RETURNS [Global FrameHandle]; 
InitUtilities: PROCEDURE [LoaderBcdUtilDef s.BcdBase]; 
SetConfig: PROCEDURE [name: STRING]; 
ResetConfig: PROCEDURE; 

-- From Other Modules 

-- From BootUser 

OpenSource: PROCEDURE [root: STRING]; 

CloseSource: PROCEDURE; 

Parselnput: PROCEDURE; 

NubFrame. WartFrame, UserControl : PROCEDURE RETURNS [GlobalFrameHandle]; 

LookUpResidentModules: PROCEDURE; 

EnumerateResidentModules: PROCEDURE [ 

proc: PROCEDURE [GlobalFrameHandle] RETURNS [BOOLEAN]] 

RETURNS [GlobalFrameHandle]; 
TurnOffStartTrap: PROCEDURE; 

NumberSwappedIn: PROCEDURE RETURNS [CARDINAL]; 
SwapInUserCode: PROCEDURE; 
UnlockUserCode: PROCEDURE; 

BootAbort: SIGNAL; 

BuildNucleus: PROGRAM; 

Bootmesa, Bootlmage, BootScript: PROGRAM [data: POINTER TO BootData]; 

BootData: TYPE « RECORD [ 
imageFileRoot: STRING. 
imageFile: SegmentDefs. FileHandle. 
images t re am: StreamDef s.StreamHandle. 
image: POINTER TO ImageDef s . ImageHeader, 
vmFile: SegmentDef s . FileHandle, 
bsheader: POINTER TO BootScriptHeader. 
headerSeg: SegmentDef s .FileSegmentHandle. 
residentCodeSeg: FakeSegmentHandle. 
vmTableSeg: FakeSegmentHandle. 
AVbase, GFTbase, SDbase: POINTER. 
tableBase: POINTER]; 

END... 



